home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mcbar / diskmo~2.fr_ / diskmo~2.fr (.txt)
Encoding:
Visual Basic Form  |  1998-02-08  |  7.2 KB  |  203 lines
  1. VERSION 5.00
  2. Object = "{CD8DBB13-94EE-11D1-921D-006097A8F11E}#8.0#0"; "mcBar.ocx"
  3. Begin VB.Form frmDiskMonitor 
  4.    Caption         =   "Disk Monitor"
  5.    ClientHeight    =   2625
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7935
  9.    ScaleHeight     =   2625
  10.    ScaleWidth      =   7935
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  13.       Height          =   1725
  14.       Left            =   90
  15.       TabIndex        =   1
  16.       Top             =   450
  17.       Width           =   7755
  18.       _ExtentX        =   13679
  19.       _ExtentY        =   3043
  20.       Blocks          =   3
  21.       Block.BarLeft(1)=   0
  22.       Block.BarRight(1)=   89
  23.       Block.BarTop(1) =   32
  24.       Block.BarBottom(1)=   1
  25.       Block.BorderStyle(1)=   5
  26.       Block.HPercentage(1)=   "89"
  27.       Block.VPercentage(1)=   "31"
  28.       Block.Color(1)  =   12632256
  29.       Block.GradientStyle(1)=   1
  30.       Block.Text(1)   =   "C: !show horizontal ratio used:c!"
  31.       Block.TextColor(1)=   16777215
  32.       Block.TextAlignment(1)=   1
  33.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   0
  37.          Weight          =   700
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Block.TextOffset(1)=   7
  43.       Block.RivetsStyle(1)=   3
  44.       Block.BarLeft(2)=   0
  45.       Block.BarRight(2)=   96
  46.       Block.BarTop(2) =   65
  47.       Block.BarBottom(2)=   33
  48.       Block.BorderStyle(2)=   5
  49.       Block.HPercentage(2)=   "96"
  50.       Block.VPercentage(2)=   "32"
  51.       Block.GradientStyle(2)=   1
  52.       Block.GradientColor(2)=   65280
  53.       Block.Text(2)   =   "D: !show horizontal ratio used:d!"
  54.       Block.TextColor(2)=   16777215
  55.       Block.TextAlignment(2)=   1
  56.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   8.25
  59.          Charset         =   0
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Block.TextOffset(2)=   7
  66.       Block.RivetsStyle(2)=   3
  67.       Block.BarLeft(3)=   0
  68.       Block.BarRight(3)=   23
  69.       Block.BarTop(3) =   99
  70.       Block.BarBottom(3)=   66
  71.       Block.BorderStyle(3)=   5
  72.       Block.HPercentage(3)=   "23"
  73.       Block.VPercentage(3)=   "33"
  74.       Block.GradientStyle(3)=   1
  75.       Block.GradientColor(3)=   255
  76.       Block.Text(3)   =   "E: !show horizontal ratio used:e!"
  77.       Block.TextColor(3)=   16777215
  78.       Block.TextAlignment(3)=   1
  79.       BeginProperty Block.TextFont(3) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "MS Sans Serif"
  81.          Size            =   8.25
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Block.TextOffset(3)=   7
  89.       Block.RivetsStyle(3)=   3
  90.       Object.Height          =   1725
  91.       Object.Width           =   7755
  92.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  93.          Name            =   "MS Sans Serif"
  94.          Size            =   8.25
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       BorderStyle     =   5
  102.       GradientStyle   =   1
  103.       GradientColor   =   16777215
  104.    End
  105.    Begin mcBar_by_The_MCR_Company.mcBar mcStatusBar 
  106.       Align           =   2  'Align Bottom
  107.       Height          =   285
  108.       Left            =   0
  109.       TabIndex        =   0
  110.       Top             =   2340
  111.       Width           =   7935
  112.       _ExtentX        =   13996
  113.       _ExtentY        =   503
  114.       Blocks          =   3
  115.       Block.BarLeft(1)=   0
  116.       Block.BarRight(1)=   70
  117.       Block.BorderStyle(1)=   2
  118.       Block.HPercentage(1)=   "70"
  119.       Block.VPercentage(1)=   "100"
  120.       Block.Color(1)  =   12632256
  121.       Block.GradientStyle(1)=   6
  122.       Block.GradientColor(1)=   16777215
  123.       Block.Text(1)   =   "mcBar ActiveX control by The MCR Company"
  124.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.          Name            =   "MS Sans Serif"
  126.          Size            =   8.25
  127.          Charset         =   0
  128.          Weight          =   700
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Block.TextFont3D(1)=   4
  134.       Block.BarLeft(2)=   90
  135.       Block.BarRight(2)=   100
  136.       Block.BorderStyle(2)=   2
  137.       Block.HPercentage(2)=   "10"
  138.       Block.VPercentage(2)=   "100"
  139.       Block.Color(2)  =   12632256
  140.       Block.Text(2)   =   "!long time!"
  141.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  142.          Name            =   "Arial"
  143.          Size            =   8.25
  144.          Charset         =   0
  145.          Weight          =   400
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       Block.TextFont3D(2)=   4
  151.       Block.BarLeft(3)=   70
  152.       Block.BarRight(3)=   90
  153.       Block.BorderStyle(3)=   2
  154.       Block.HPercentage(3)=   "20"
  155.       Block.VPercentage(3)=   "100"
  156.       Block.Color(3)  =   8421440
  157.       Block.TextColor(3)=   16777215
  158.       BeginProperty Block.TextFont(3) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  159.          Name            =   "MS Sans Serif"
  160.          Size            =   8.25
  161.          Charset         =   0
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       Object.Height          =   285
  168.       Object.Width           =   7935
  169.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  170.          Name            =   "MS Sans Serif"
  171.          Size            =   8.25
  172.          Charset         =   0
  173.          Weight          =   700
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.    End
  179.    Begin VB.Label Label1 
  180.       AutoSize        =   -1  'True
  181.       Caption         =   "Disks are monitored each 15 seconds"
  182.       Height          =   195
  183.       Left            =   180
  184.       TabIndex        =   2
  185.       Top             =   90
  186.       Width           =   2670
  187.    End
  188. Attribute VB_Name = "frmDiskMonitor"
  189. Attribute VB_GlobalNameSpace = False
  190. Attribute VB_Creatable = False
  191. Attribute VB_PredeclaredId = True
  192. Attribute VB_Exposed = False
  193. Option Explicit
  194. Private Sub Form_Load()
  195.    mcBar1.TimerDiskInterval = 15000
  196.    mcBar1.TimerDiskEnabled = True
  197.    mcStatusBar.TimerTimeEnabled = True
  198.    mcStatusBar.BlockText(3) = "last monitor " & Time$
  199. End Sub
  200. Private Sub mcBar1_TimerDisk()
  201.    mcStatusBar.BlockText(3) = "last monitor " & Time$
  202. End Sub
  203.